﻿Imports System.Collections.Generic


''' <summary>
''' Clase que define la entidad de negocio Patente
''' </summary>
''' <remarks></remarks>
Public Class cPatente
    Inherits cPatenteFamiliaElement

    Private _Pat_Codigo As Int16
    Private _Pat_Descripcion As String
    Private _Checked As Boolean


    Public Property Pat_Codigo() As Int16
        Get
            Return _Pat_Codigo
        End Get
        Set(value As Int16)
            _Pat_Codigo = value
        End Set
    End Property

    Public Property Pat_Descripcion() As String
        Get
            Return _Pat_Descripcion
        End Get
        Set(value As String)
            _Pat_Descripcion = value
        End Set
    End Property

    Public Property Checked As Boolean
        Get
            Return _Checked
        End Get
        Set(value As Boolean)
            _Checked = value
        End Set
    End Property

    Public Sub New()
        _Checked = False
    End Sub

    Public Sub New(Pat_Codigo As Int16)
        _Pat_Codigo = Pat_Codigo

        _Checked = False
    End Sub

    Public Overrides Sub Add(element As cPatenteFamiliaElement)
    End Sub

    Public Overrides ReadOnly Property ChildrenCount As Int16
        Get
            Return 0
        End Get
    End Property

    Public Overrides ReadOnly Property Nombre As String
        Get
            Return _Pat_Descripcion
        End Get
    End Property

    Public Overrides Sub Remove(element As cPatenteFamiliaElement)
    End Sub

    Public Overrides Property ListChilds As List(Of cPatenteFamiliaElement)
        Get
            Return Nothing
        End Get
        Set(value As List(Of cPatenteFamiliaElement))
            '
        End Set
    End Property

End Class
